Acala

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://AUSD/LDOT 703,808.9 892.15 297,351.5 1,406,487.5 1,787.70 655,633.1 702,678.55 534.5
lp://AUSD/fa%3A%2F%2F4 131,453.1 136.92 121,235.2 262,906.3 604.77 393,260.2 131,453.14 100
lp://DOT/LCDOT 4,358,526.4 12,932.04 1,249,030.8 4,339,373.8 14,722.91 1,408,346.1 19,152.66 14.6
lp://AUSD/LCDOT 2,343,272.2 7,902.89 1,032,997.6 2,339,314.1 15,857.59 1,161,216.2 3,958.14 3
lp://ACA/AUSD 1,916,333.4 3,253.79 1,493,561.2 1,918,648.8 6,730.08 1,705,049.9 2,315.33 1.8

Karura

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://KBTC/KUSD -1,657,011.14 -68.98 -3,989.77 NA NA NA NA NA
lp://KINT/KUSD -1,302,209.45 -419.47 -6,121.75 NA NA NA NA NA
lp://PHA/KUSD -1,066,818.69 -11.07 -1,010.11 NA NA NA NA NA
lp://KUSD/KINT 1,290,862.58 -278.15 -6,139.03 9,422.12 631.96 21,719.67 1,281,440.45 NA
lp://KUSD/KBTC 1,583,348.67 -66.93 -4,783.80 514,731.32 2,784.89 105,452.49 1,068,617.35 NA
lp://KUSD/PHA 1,062,726.68 -182.42 -1,198.07 14,676.74 40.01 8,977.59 1,048,049.94 NA
lp://TAI/taiKSM 0.00 0.00 0.00 9,022.86 97.39 13,104.05 9,022.86 NA
lp://KAR/KSM 1,065,408.83 872.01 264,636.01 1,067,094.35 873.95 273,750.86 1,685.52 NA
lp://KAR/LKSM 609,805.43 0.00 66,869.67 611,352.37 3.70 192,009.22 1,546.94 NA
lp://KUSD/KSM 561,480.21 3,335.80 573,385.34 562,696.68 3,338.83 583,320.69 1,216.47 NA
lp://KAR/KUSD 691,591.77 88.30 236,254.65 692,299.02 148.58 388,420.68 707.26 NA
lp://KUSD/ARIS2 180,483.60 24.82 25,585.92 180,859.49 24.86 62,260.67 375.89 NA
lp://KSM/LKSM 106,515.88 1.85 20,767.04 106,814.11 1.85 28,039.76 298.24 NA
lp://KUSD/QTZ 8,075.68 1,379.74 16,426.00 8,289.33 2,348.48 32,413.27 213.65 NA
lp://KSM/ARIS 45.14 15.72 72.74 90.45 31.63 218.51 45.31 NA
lp://KAR/QTZ 7,837.37 0.00 13,001.80 7,875.27 37.49 33,712.23 37.89 NA
lp://KUSD/RMRK 11,912.92 961.61 26,736.56 11,889.98 961.73 26,794.87 22.94 NA
lp://KUSD/LKSM 491,540.12 946.46 202,174.69 491,517.72 945.81 290,558.97 22.40 NA
lp://KUSD/BNC 57,483.49 8.66 6,350.26 57,466.18 8.66 6,451.81 17.32 NA
lp://KSM/RMRK 6,783.25 246.88 7,980.27 6,789.17 247.16 7,987.60 5.93 NA
lp://KUSD/CSM 32,087.19 94.42 5,282.23 32,092.05 94.42 5,299.47 4.86 NA
---
title: "Acala / Karura Pool Stats"
output:
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    social: menu
    source_code: embed
---

```{css custom1, echo=FALSE}
.dataTables_scrollBody {
    max-height: 100% !important;
}
```

```{r global, include=FALSE}

library(knitr)
knitr::opts_chunk$set(
  message = FALSE,
  warning = FALSE,
  comment = "#>"
)

library(kableExtra)
library(formattable)
library(lubridate)
library(flexdashboard)
library(DT)
library(subscanr)
library(ghql)
x <- GraphqlClient$new()

# Helper function to concat
`%+%` <- function(a, b) paste0(a, b)

# library(reticulate)

```

```{r tokens, cache = TRUE, include=FALSE}

pools_a <- getPoolStats_acala('acala')
pools_a[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_a_dex <- getPoolStats_acala_dex('acala') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_a_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

both_a <- merge(pools_a[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_a_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_a[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_a[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_a[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]



pools_k <- getPoolStats_acala('karura')
pools_k[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

# FOR DEX must use dailyTradeVolumeUSD instead of tradeVolumeUSD
pools_k_dex <- getPoolStats_acala_dex('karura') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_k_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_k[, .(id, token0.name, token1.name)]

both_k <- merge(pools_k[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_k_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_k[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_k[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_k[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]

```

# Acala {.tabset}

Row
----

```{r acala1}

knitr::kable(both_a, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```


# Karura {.tabset}

Row
----

```{r karura1}

knitr::kable(both_k, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```